home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / IEditor / ARexx / AlignBoxBottom.ie < prev    next >
Text File  |  1997-06-17  |  446b  |  34 lines
  1. /*
  2.     $VER: AlignBoxBottom.ie 1.0 (5.12.95) © Simone Tellini
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. SIGNAL ON ERROR
  8.  
  9. ADDRESS 'IEDITOR.1'
  10.  
  11. /*---------------- INSERT HERE YOUR CODE ------------------*/
  12.  
  13.  
  14. 'GETBOX'
  15. which = result
  16. 'GETBOXATTR' which from
  17.  
  18. 'GETBOX'
  19. 'GETBOXATTR' result to
  20.  
  21. 'SETBOXATTR' which 'T' ((to.topedge+to.height)-from.height)
  22.  
  23.  
  24. /*---------------------------------------------------------*/
  25.  
  26. EXIT
  27.  
  28.  
  29. ERROR:
  30.  
  31. say 'Error' RC 'on line' SIGL
  32.  
  33. EXIT RC
  34.